You see those rainbow commercials during pride month. But do companies actually support what they promote?

AT&T and Comcast are both popular telecommunications businesses who, amongst many other companies in the United States, promote a pro-LGBTQ+ image and sponsorship. However, in spite of their outward image, both companies have made large contributions to different anti-LGBTQ+ political campaigns. Below are two graphics that showcase the data between AT&T and Comcast on their benefactions to anti-LGBTQ+ political campaigns.

How do AT&T and Comcast compare in terms of their contributions to anti-queer political campaigns?

The below graphic (Barplot #1) displays the monetary contributions AT&T and Comcast made to anti-LGBTQ+ political campaigns. The olive green column takes up the majority of the graphic while the purple column appears to be under half of the size of the green column. This is due to the significant difference in contributions made by each company. In this case, Comcast (in “purple”) has donated approximately $121,350 compared to $307,147.50 that AT&T (in “olive green”) donated to anti-LGBTQ+ political campaigns. In other terms, AT&T donated approximately 2.5 times, or $185,797.50, more money to anti-LGBTQ+ political campaigns than Comcast donated

In Barplot #2, we are able to see the exact amount of politicians to which each corparation made contributions. Comcast (in “purple”) appeared to donate their total of $121,350 to 40 politician as displayed in this graphic. Meanwhile, AT&T (“in olive green”) has donated to 67 politicians’ anti-LGBTQ+ political campaigns.

Using the data from both of these displays, we are able to get the mean amount of money donated by AT&T to each of these politicians, which would be a mean of $4,584.29 donated per politician, on average. This means that Comcast donated, on average, a little more than 1.5 times the amount of money to each politician compared to Comcast (with a mean donation of $3,033.75 per politician).

Both these companies donated notably large sums of money to anti-LGBTQ+ political campaigns, however, it appears that between Comcast and AT&T, AT&T has made more contributions to anti-queer politicians on average than Comcast.

# Codes
ggplotly(fortune_aggregates %>%
  filter(Company %in% c("Comcast", "AT&T")) %>%
  ggplot(aes(x = Company, y= `Total Contributed`)) + geom_col(fill= c("darkolivegreen", "darkorchid4")) + labs(title= "Barplot #1: Comast's and AT&T's Monetary Contributions to Anti-queer Political Campaigns", x= "Pride Sponsor Company", y= "Amount Contributed to Anti-queer Political Campaigns (in dollars)" ) + theme(text=element_text(family="Times New Roman", face="bold", size=10)))
ggplotly(fortune_aggregates %>%
  filter(Company %in% c("Comcast", "AT&T")) %>%
  ggplot(aes(x = Company, y= `# of Politicians Contributed to`)) + geom_col(fill= c("darkolivegreen", "darkorchid4")) + labs(title="Barplot #2: Comast's and AT&T's Contributions to Anti-queer Political Campaigns", x = "Pride Sponsor Company", y= "Number of Politcians to which Company Contributed") + theme(text=element_text(family="Times New Roman", face="bold", size=10))) 
ggplotly(fortune_aggregates2 %>%
  ggplot(aes(x= `# of Politicians Contributed to`)) + geom_histogram(color= "lavender",fill="darkorchid") + labs(title= "Frequency of Contributions made to Politicians", x="Number of Politicians to which Companies Contributed", y= "Frequency") + theme(text=element_text(family="Times New Roman", face="bold", size=10))) 

Are AT&T and Comcast the only ones?

AT&T and Comcast are not the only companies who donate largely to anti-LGBTQ+ political campaigns. The histogram above displays the frequency of the number of Politicians to which about 116 companies donated. The most common frequency was 1 at a frequency of 37, meaning that 37 companies each donated to one politician.

The overall data is right skewed, which means that most of companies contributed to lower numbers of politicians who led anti-LGBTQ+ campaigns (typically between 1 and 9). However, if we were to look at AT&T and Comcast on this histogram, we can see that they have donated to significantly more politicians individually than other corporations. AT&T’s plot at 67 could be interrupted as a potential outlier, while Comcast’s plot at 40 could be interrupted as a point that deviates from the norm of the data (not necessarily an outlier).

As a result, this histogram allows us to showcase the drastically different contributions these two telecommunications companies make to anti-queer politicians in comparison to other companies on a visual level. And so while these two companies may not be the only ones donating to anti-queer politicians, in this data set, Comcast and AT&T appear to stand out as some of the largest contributor’s to anti-LGBTQ+ politicians within the United States.

Links:https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2022/2022-06-07/fortune_aggregates.csv

LS0tCnRpdGxlOiAiVGhlIEZhbHNlIEltYWdlIG9mIENvcnBvcmF0ZSBMQkdUUSsgU3VwcG9ydCIKYXV0aG9yOiAiWm9lIFBhcGFzIgpkYXRlOiAiMDMvMDEvMjAyNCIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgdGhlbWU6IGZsYXRseQogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6IHRydWUKICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKLS0tCiMgWW91IHNlZSB0aG9zZSByYWluYm93IGNvbW1lcmNpYWxzIGR1cmluZyBwcmlkZSBtb250aC4gQnV0IGRvIGNvbXBhbmllcyBhY3R1YWxseSBzdXBwb3J0IHdoYXQgdGhleSBwcm9tb3RlPyAKQVQmVCBhbmQgQ29tY2FzdCBhcmUgYm90aCBwb3B1bGFyIHRlbGVjb21tdW5pY2F0aW9ucyBidXNpbmVzc2VzIHdobywgYW1vbmdzdCBtYW55IG90aGVyIGNvbXBhbmllcyBpbiB0aGUgVW5pdGVkIFN0YXRlcywgcHJvbW90ZSBhIHByby1MR0JUUSsgaW1hZ2UgYW5kIHNwb25zb3JzaGlwLiBIb3dldmVyLCBpbiBzcGl0ZSBvZiB0aGVpciBvdXR3YXJkIGltYWdlLCBib3RoIGNvbXBhbmllcyBoYXZlIG1hZGUgbGFyZ2UgY29udHJpYnV0aW9ucyB0byBkaWZmZXJlbnQgYW50aS1MR0JUUSsgcG9saXRpY2FsIGNhbXBhaWducy4gQmVsb3cgYXJlIHR3byBncmFwaGljcyB0aGF0IHNob3djYXNlIHRoZSBkYXRhIGJldHdlZW4gQVQmVCBhbmQgQ29tY2FzdCBvbiB0aGVpciBiZW5lZmFjdGlvbnMgdG8gYW50aS1MR0JUUSsgcG9saXRpY2FsIGNhbXBhaWducy4KCmBgYHtyLCB3YXJuaW5nID0gRkFMU0UsIG1lc3NhZ2UgPSBGQUxTRSwgaW5jbHVkZT1GQUxTRX0KIyBMb2FkIGFueSBSIFBhY2thZ2VzIHlvdSBtYXkgbmVlZApsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShtb3NhaWMpCmxpYnJhcnkodGlkeXR1ZXNkYXlSKQpsaWJyYXJ5KHBsb3RseSkKbGlicmFyeShkcGx5cikKCmZvcnR1bmVfYWdncmVnYXRlcyA8LXJlYWRyOjpyZWFkX2NzdignaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL3Jmb3JkYXRhc2NpZW5jZS90aWR5dHVlc2RheS9tYXN0ZXIvZGF0YS8yMDIyLzIwMjItMDYtMDcvZm9ydHVuZV9hZ2dyZWdhdGVzLmNzdicpCmZvcnR1bmVfYWdncmVnYXRlczIgPC0gZm9ydHVuZV9hZ2dyZWdhdGVzWy0xMTcsXQpgYGAKIyMgSG93IGRvIEFUJlQgYW5kIENvbWNhc3QgY29tcGFyZSBpbiB0ZXJtcyBvZiB0aGVpciBjb250cmlidXRpb25zIHRvIGFudGktcXVlZXIgcG9saXRpY2FsIGNhbXBhaWducz8KVGhlIGJlbG93IGdyYXBoaWMgKEJhcnBsb3QgIzEpIGRpc3BsYXlzIHRoZSBtb25ldGFyeSBjb250cmlidXRpb25zIEFUJlQgYW5kIENvbWNhc3QgbWFkZSB0byBhbnRpLUxHQlRRKyBwb2xpdGljYWwgY2FtcGFpZ25zLiAgVGhlIG9saXZlIGdyZWVuIGNvbHVtbiB0YWtlcyB1cCB0aGUgbWFqb3JpdHkgb2YgdGhlIGdyYXBoaWMgd2hpbGUgdGhlIHB1cnBsZSBjb2x1bW4gYXBwZWFycyB0byBiZSB1bmRlciBoYWxmIG9mIHRoZSBzaXplIG9mIHRoZSBncmVlbiBjb2x1bW4uIFRoaXMgaXMgZHVlIHRvIHRoZSBzaWduaWZpY2FudCBkaWZmZXJlbmNlIGluIGNvbnRyaWJ1dGlvbnMgbWFkZSBieSBlYWNoIGNvbXBhbnkuIEluIHRoaXMgY2FzZSwgQ29tY2FzdCAoaW4gInB1cnBsZSIpIGhhcyBkb25hdGVkIGFwcHJveGltYXRlbHkgJDEyMSwzNTAgY29tcGFyZWQgdG8gJDMwNywxNDcuNTAgdGhhdCBBVCZUIChpbiAib2xpdmUgZ3JlZW4iKSBkb25hdGVkIHRvIGFudGktTEdCVFErIHBvbGl0aWNhbCBjYW1wYWlnbnMuIEluIG90aGVyIHRlcm1zLCBBVCZUIGRvbmF0ZWQgYXBwcm94aW1hdGVseSAyLjUgdGltZXMsIG9yICQxODUsNzk3LjUwLCBtb3JlIG1vbmV5IHRvIGFudGktTEdCVFErIHBvbGl0aWNhbCBjYW1wYWlnbnMgdGhhbiBDb21jYXN0IGRvbmF0ZWQKCkluIEJhcnBsb3QgIzIsIHdlIGFyZSBhYmxlIHRvIHNlZSB0aGUgZXhhY3QgYW1vdW50IG9mIHBvbGl0aWNpYW5zIHRvIHdoaWNoIGVhY2ggY29ycGFyYXRpb24gbWFkZSBjb250cmlidXRpb25zLiBDb21jYXN0IChpbiAicHVycGxlIikgYXBwZWFyZWQgdG8gZG9uYXRlIHRoZWlyIHRvdGFsIG9mICQxMjEsMzUwIHRvIDQwIHBvbGl0aWNpYW4gYXMgZGlzcGxheWVkIGluIHRoaXMgZ3JhcGhpYy4gTWVhbndoaWxlLCBBVCZUICgiaW4gb2xpdmUgZ3JlZW4iKSBoYXMgZG9uYXRlZCB0byA2NyBwb2xpdGljaWFucycgYW50aS1MR0JUUSsgcG9saXRpY2FsIGNhbXBhaWducy4gCgpVc2luZyB0aGUgZGF0YSBmcm9tIGJvdGggb2YgdGhlc2UgZGlzcGxheXMsIHdlIGFyZSBhYmxlIHRvIGdldCB0aGUgbWVhbiBhbW91bnQgb2YgbW9uZXkgZG9uYXRlZCBieSBBVCZUIHRvIGVhY2ggb2YgdGhlc2UgcG9saXRpY2lhbnMsIHdoaWNoIHdvdWxkIGJlIGEgbWVhbiBvZiAkNCw1ODQuMjkgZG9uYXRlZCBwZXIgcG9saXRpY2lhbiwgb24gYXZlcmFnZS4gVGhpcyBtZWFucyB0aGF0IENvbWNhc3QgZG9uYXRlZCwgb24gYXZlcmFnZSwgYSBsaXR0bGUgbW9yZSB0aGFuIDEuNSB0aW1lcyB0aGUgYW1vdW50IG9mIG1vbmV5IHRvIGVhY2ggcG9saXRpY2lhbiBjb21wYXJlZCB0byBDb21jYXN0ICh3aXRoIGEgbWVhbiBkb25hdGlvbiBvZiAkMywwMzMuNzUgcGVyIHBvbGl0aWNpYW4pLiAgCgpCb3RoIHRoZXNlIGNvbXBhbmllcyBkb25hdGVkIG5vdGFibHkgbGFyZ2Ugc3VtcyBvZiBtb25leSB0byBhbnRpLUxHQlRRKyBwb2xpdGljYWwgY2FtcGFpZ25zLCBob3dldmVyLCBpdCBhcHBlYXJzIHRoYXQgYmV0d2VlbiBDb21jYXN0IGFuZCBBVCZULCBBVCZUIGhhcyBtYWRlIG1vcmUgY29udHJpYnV0aW9ucyB0byBhbnRpLXF1ZWVyIHBvbGl0aWNpYW5zIG9uIGF2ZXJhZ2UgdGhhbiBDb21jYXN0LgoKYGBge3IsIHdhcm5pbmcgPSBGQUxTRSwgbWVzc2FnZSA9IEZBTFNFfQojIENvZGVzCmdncGxvdGx5KGZvcnR1bmVfYWdncmVnYXRlcyAlPiUKICBmaWx0ZXIoQ29tcGFueSAlaW4lIGMoIkNvbWNhc3QiLCAiQVQmVCIpKSAlPiUKICBnZ3Bsb3QoYWVzKHggPSBDb21wYW55LCB5PSBgVG90YWwgQ29udHJpYnV0ZWRgKSkgKyBnZW9tX2NvbChmaWxsPSBjKCJkYXJrb2xpdmVncmVlbiIsICJkYXJrb3JjaGlkNCIpKSArIGxhYnModGl0bGU9ICJCYXJwbG90ICMxOiBDb21hc3QncyBhbmQgQVQmVCdzIE1vbmV0YXJ5IENvbnRyaWJ1dGlvbnMgdG8gQW50aS1xdWVlciBQb2xpdGljYWwgQ2FtcGFpZ25zIiwgeD0gIlByaWRlIFNwb25zb3IgQ29tcGFueSIsIHk9ICJBbW91bnQgQ29udHJpYnV0ZWQgdG8gQW50aS1xdWVlciBQb2xpdGljYWwgQ2FtcGFpZ25zIChpbiBkb2xsYXJzKSIgKSArIHRoZW1lKHRleHQ9ZWxlbWVudF90ZXh0KGZhbWlseT0iVGltZXMgTmV3IFJvbWFuIiwgZmFjZT0iYm9sZCIsIHNpemU9MTApKSkKCmdncGxvdGx5KGZvcnR1bmVfYWdncmVnYXRlcyAlPiUKICBmaWx0ZXIoQ29tcGFueSAlaW4lIGMoIkNvbWNhc3QiLCAiQVQmVCIpKSAlPiUKICBnZ3Bsb3QoYWVzKHggPSBDb21wYW55LCB5PSBgIyBvZiBQb2xpdGljaWFucyBDb250cmlidXRlZCB0b2ApKSArIGdlb21fY29sKGZpbGw9IGMoImRhcmtvbGl2ZWdyZWVuIiwgImRhcmtvcmNoaWQ0IikpICsgbGFicyh0aXRsZT0iQmFycGxvdCAjMjogQ29tYXN0J3MgYW5kIEFUJlQncyBDb250cmlidXRpb25zIHRvIEFudGktcXVlZXIgUG9saXRpY2FsIENhbXBhaWducyIsIHggPSAiUHJpZGUgU3BvbnNvciBDb21wYW55IiwgeT0gIk51bWJlciBvZiBQb2xpdGNpYW5zIHRvIHdoaWNoIENvbXBhbnkgQ29udHJpYnV0ZWQiKSArIHRoZW1lKHRleHQ9ZWxlbWVudF90ZXh0KGZhbWlseT0iVGltZXMgTmV3IFJvbWFuIiwgZmFjZT0iYm9sZCIsIHNpemU9MTApKSkgCgpnZ3Bsb3RseShmb3J0dW5lX2FnZ3JlZ2F0ZXMyICU+JQogIGdncGxvdChhZXMoeD0gYCMgb2YgUG9saXRpY2lhbnMgQ29udHJpYnV0ZWQgdG9gKSkgKyBnZW9tX2hpc3RvZ3JhbShjb2xvcj0gImxhdmVuZGVyIixmaWxsPSJkYXJrb3JjaGlkIikgKyBsYWJzKHRpdGxlPSAiRnJlcXVlbmN5IG9mIENvbnRyaWJ1dGlvbnMgbWFkZSB0byBQb2xpdGljaWFucyIsIHg9Ik51bWJlciBvZiBQb2xpdGljaWFucyB0byB3aGljaCBDb21wYW5pZXMgQ29udHJpYnV0ZWQiLCB5PSAiRnJlcXVlbmN5IikgKyB0aGVtZSh0ZXh0PWVsZW1lbnRfdGV4dChmYW1pbHk9IlRpbWVzIE5ldyBSb21hbiIsIGZhY2U9ImJvbGQiLCBzaXplPTEwKSkpIApgYGAKIyMgQXJlIEFUJlQgYW5kIENvbWNhc3QgdGhlIG9ubHkgb25lcz8KQVQmVCBhbmQgQ29tY2FzdCBhcmUgbm90IHRoZSBvbmx5IGNvbXBhbmllcyB3aG8gZG9uYXRlIGxhcmdlbHkgdG8gYW50aS1MR0JUUSsgcG9saXRpY2FsIGNhbXBhaWducy4gVGhlIGhpc3RvZ3JhbSBhYm92ZSBkaXNwbGF5cyB0aGUgZnJlcXVlbmN5IG9mIHRoZSBudW1iZXIgb2YgUG9saXRpY2lhbnMgdG8gd2hpY2ggYWJvdXQgMTE2IGNvbXBhbmllcyBkb25hdGVkLiBUaGUgbW9zdCBjb21tb24gZnJlcXVlbmN5IHdhcyAxIGF0IGEgZnJlcXVlbmN5IG9mIDM3LCBtZWFuaW5nIHRoYXQgMzcgY29tcGFuaWVzIGVhY2ggZG9uYXRlZCB0byBvbmUgcG9saXRpY2lhbi4gCgpUaGUgb3ZlcmFsbCBkYXRhIGlzIHJpZ2h0IHNrZXdlZCwgd2hpY2ggbWVhbnMgdGhhdCBtb3N0IG9mIGNvbXBhbmllcyBjb250cmlidXRlZCB0byBsb3dlciBudW1iZXJzIG9mIHBvbGl0aWNpYW5zIHdobyBsZWQgYW50aS1MR0JUUSsgY2FtcGFpZ25zICh0eXBpY2FsbHkgYmV0d2VlbiAxIGFuZCA5KS4gSG93ZXZlciwgaWYgd2Ugd2VyZSB0byBsb29rIGF0IEFUJlQgYW5kIENvbWNhc3Qgb24gdGhpcyBoaXN0b2dyYW0sIHdlIGNhbiBzZWUgdGhhdCB0aGV5IGhhdmUgZG9uYXRlZCB0byBzaWduaWZpY2FudGx5IG1vcmUgcG9saXRpY2lhbnMgaW5kaXZpZHVhbGx5IHRoYW4gb3RoZXIgY29ycG9yYXRpb25zLiBBVCZUJ3MgcGxvdCBhdCA2NyBjb3VsZCBiZSBpbnRlcnJ1cHRlZCBhcyBhIHBvdGVudGlhbCBvdXRsaWVyLCB3aGlsZSBDb21jYXN0J3MgcGxvdCBhdCA0MCBjb3VsZCBiZSBpbnRlcnJ1cHRlZCBhcyBhIHBvaW50IHRoYXQgZGV2aWF0ZXMgZnJvbSB0aGUgbm9ybSBvZiB0aGUgZGF0YSAobm90IG5lY2Vzc2FyaWx5IGFuIG91dGxpZXIpLiAKCkFzIGEgcmVzdWx0LCB0aGlzIGhpc3RvZ3JhbSBhbGxvd3MgdXMgdG8gc2hvd2Nhc2UgdGhlIGRyYXN0aWNhbGx5IGRpZmZlcmVudCBjb250cmlidXRpb25zIHRoZXNlIHR3byAgdGVsZWNvbW11bmljYXRpb25zIGNvbXBhbmllcyBtYWtlIHRvIGFudGktcXVlZXIgcG9saXRpY2lhbnMgaW4gY29tcGFyaXNvbiB0byBvdGhlciBjb21wYW5pZXMgb24gYSB2aXN1YWwgbGV2ZWwuIEFuZCBzbyB3aGlsZSB0aGVzZSB0d28gY29tcGFuaWVzIG1heSBub3QgYmUgdGhlIG9ubHkgb25lcyBkb25hdGluZyB0byBhbnRpLXF1ZWVyIHBvbGl0aWNpYW5zLCBpbiB0aGlzIGRhdGEgc2V0LCBDb21jYXN0IGFuZCBBVCZUIGFwcGVhciB0byBzdGFuZCBvdXQgYXMgc29tZSBvZiB0aGUgbGFyZ2VzdCBjb250cmlidXRvcidzIHRvIGFudGktTEdCVFErIHBvbGl0aWNpYW5zIHdpdGhpbiB0aGUgVW5pdGVkIFN0YXRlcy4KCkxpbmtzOmh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9yZm9yZGF0YXNjaWVuY2UvdGlkeXR1ZXNkYXkvbWFzdGVyL2RhdGEvMjAyMi8yMDIyLTA2LTA3L2ZvcnR1bmVfYWdncmVnYXRlcy5jc3YnCg==